home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_205_Dialog < prev    next >
Encoding:
Modula Implementation  |  1992-04-08  |  2.1 KB  |  111 lines
  1. (* %filename% -- dialog *)
  2. (* Created %date% %time% by AppMaker *)
  3.  
  4. IMPLEMENTATION MODULE U%dlogname%;
  5.  
  6. FROM SYSTEM IMPORT
  7.     CAST;
  8. FROM Types IMPORT
  9.     INT16, CARD32, Str255;
  10. FROM Object IMPORT
  11.     MEMBERTEST;
  12. FROM UObject IMPORT
  13.     TObject;
  14. FROM UMacAppUtilities IMPORT
  15.     IDType, gDeadStripSuppression;
  16. FROM UMacApp IMPORT
  17.     TView, TWindow,
  18.     NewTemplateWindow;
  19. FROM UDialog IMPORT
  20.     TDialogView;
  21. FROM ResourceDefs IMPORT
  22.     k%dlogname%ID;
  23. IMPORT
  24.     UAMLibraryM;
  25. %for each item gen modImports%
  26.  
  27. (*${QINSPECTOR*)
  28. FROM UMacAppUtilities IMPORT
  29.     bClass,
  30.     DoToFieldMETHOD;
  31. (*$}*)
  32.  
  33. CONST
  34.     %for each item gen itemNr%
  35.  
  36. %for each item gen classMethods%
  37.  
  38. TYPE
  39.     IDTypeRec =    RECORD CASE :CARDINAL OF
  40.                       0: id:    IDType;
  41.                     | 1:  n:    CARD32;
  42.                 END END;
  43. (*SEG ARes*)
  44. (*----------*)
  45. METHOD T%dlogname%.DoChoice (origView: TView; itsChoice: INT16);
  46. VAR
  47.     origID:        IDTypeRec;
  48. BEGIN
  49.     origID.id := origView.fIdentifier;
  50.     %for each item gen doChoice%
  51.  
  52.     %if modalOneShot%
  53.         DismissDialog (origID.id);
  54.     %else%
  55.         INHERITED DoChoice (origView, itsChoice);
  56.     %endif%
  57. END DoChoice;
  58.  
  59. (*${QINSPECTOR*)
  60. (*SEG AFields*)
  61. (*----------*)
  62. METHOD T%dlogname%.Fields (DoToField: DoToFieldMETHOD);
  63. BEGIN
  64.     DoToField ("\LT%dlogname%", NIL, bClass);
  65.     INHERITED Fields (DoToField);
  66. END Fields;
  67. (*$}*)
  68.  
  69. %if modeless%
  70.     (*SEG AOpen*)
  71.     (*----------*)
  72.     PROCEDURE New%dlogname% ():    TWindow;
  73.     VAR
  74.         theWindow:        TWindow;
  75.     BEGIN
  76.         theWindow := NewTemplateWindow (k%dlogname%ID, NIL);
  77.         RETURN theWindow;
  78.     END New%dlogname%;
  79. %else%
  80.     (*SEG ASelCommand*)
  81.     (*----------*)
  82.     PROCEDURE Do%dlogname%;
  83.     VAR
  84.         aWindow:        TWindow;
  85.         aDialogView:    TDialogView;
  86.         cancelItem,
  87.         dismisser:        IDTypeRec;
  88.     BEGIN
  89.         aWindow := NewTemplateWindow (k%dlogname%ID, NIL);
  90.         aDialogView := TDialogView (aWindow.FindSubView('dlog'));
  91.         (*.initialize subviews from current settings.*)
  92.  
  93.         dismisser.id := aDialogView.PoseModally();
  94.  
  95.         cancelItem.id := aDialogView.fCancelItem;
  96.         IF dismisser.n <> cancelItem.n THEN
  97.             (*.use new settings from subviews.*)
  98.         END(*IF*);
  99.         aWindow.Close;
  100.     END Do%dlogname%;
  101. %endif%
  102.  
  103.  
  104. BEGIN
  105.     IF gDeadStripSuppression THEN
  106.         IF MEMBER (TObject (NIL), T%dlogname%) THEN END;
  107.         %for each item gen gDeadStripSuppression%
  108.  
  109.     END(*IF*);
  110. END U%dlogname%.
  111.